;*****************7 Segment Procedure************
display7segment 	proc far
	push ax
	push BX
	push dx
  	push DS

	xor AX,AX
	mov al,DS:SegCounter
	mov SI,AX
	inc DS:SegCounter

	cmp DS:SegCounter,6
	jl reset_segCounter_finished
		mov DS:SegCounter,0
	reset_segCounter_finished:

	xor bx,bx
	mov bl,SegNum[SI]
	mov al,SegPattern[BX]
	mov	dx,PCS2
	out	dx,al

;call far ptr PRINT_AL_DEBUG
	
	mov al,SegPosition[SI]
	mov dx,PCS3
	out dx,al

	pop ds
	pop dx
	pop bx
	pop ax
	ret
display7segment endp